home *** CD-ROM | disk | FTP | other *** search
/ Saturn 2 / Saturn 2 Edition.iso / utils / 250 / 250.exe / FILES1.LZH / COUNTER.PAS < prev    next >
Pascal/Delphi Source File  |  1993-08-18  |  3KB  |  121 lines
  1. {************************************************}
  2. {                                                }
  3. { E! for Windows                                 }
  4. { (c) - Patrick Philippot - 1992,1993            }
  5. {                                                }
  6. { Sample Extension DLL - version 1.1             }
  7. {                                                }
  8. { This DLL implements a simple word counter.     }
  9. { When executed it will count the number of      }
  10. { words and characters contained in the current  }
  11. { Editor and display the result in a message box.}
  12. {                                                }
  13. {************************************************}
  14.  
  15. (*
  16. To use this DLL simply load it from the user menu or add its name to the
  17. list of autoloaded Extension DLLs by using the Autoload dialog box from
  18. the User Menu of EW. That's all.
  19.  
  20. This Extension DLL uses no hook. Since it attaches itself to the User Menu,
  21. you don't need to run it from the User|Execute Extension Menu. A "Word
  22. Counter" option automatically appears in the User Menu. You may also assign
  23. this extension to a keystroke. See the documentation for a description of
  24. how to assign DLL execution to a keystroke.
  25. *)
  26.  
  27. {$I compdir.inc}
  28. {$C MOVEABLE PRELOAD DISCARDABLE}
  29.  
  30. library Counter;
  31.  
  32. uses WinProcs, WinTypes, EWApiImp, Strings;
  33.  
  34. const
  35.   Title : PChar = 'Word Counter';
  36.  
  37. var
  38.   SaveExit : Pointer;
  39.   EntryId  : longint;
  40.  
  41.  
  42. function Words(src : PChar) : longint;
  43.  
  44. var
  45.   Count : longint;
  46.   i,
  47.   len   : word;
  48.  
  49. const
  50.   Delimiters : set of char =
  51.     ['.', ' ', ',', ';', ':', '\', '/', '(', ')', '{', '}', '[', ']', '-'];
  52.  
  53. begin
  54.   len := StrLen(src);
  55.   if len = 0 then
  56.     Count := 0
  57.   else begin
  58.     Count := 1;
  59.     i := 0;
  60.     while (i < len) and (src[i] in Delimiters) do
  61.       Inc(i);
  62.     repeat
  63.       while (i < len) and not (src[i] in Delimiters) do
  64.         Inc(i);
  65.       while (i < len) and (src[i] in Delimiters) do
  66.         Inc(i);
  67.       if i < len then
  68.         Inc(Count);
  69.     until i >= len;
  70.   end;
  71.   Words := Count;
  72. end;
  73.  
  74. function EWExecute(RoutineId : word) : integer; export;
  75.  
  76. const
  77.   MAXLEN = 255;
  78.  
  79. var
  80.   index        : integer;
  81.   CharCount,
  82.   WordCount    : longint;
  83.   WordCountStr : array [0..7] of char;
  84.   CharCountStr : array [0..10] of char;
  85.   Message      : array [0..MAXLEN] of char;
  86.   P            : PChar;
  87.  
  88. begin
  89.   WordCount := 0;
  90.   CharCount := 0;
  91.   for index := 0 to Pred(EWGetLineCount) do begin
  92.     P := EWGetLineAt(index);
  93.     Inc(WordCount, Words(P));
  94.     Inc(CharCount, StrLen(P));
  95.   end;
  96.   StrCopy(Message, EWGetFileName(EWGetCurrentEditor));
  97.   StrCat(Message, ' contains ');
  98.   Str(WordCount, WordCountStr);
  99.   Str(CharCount, CharCountStr);
  100.   StrCat(StrCat(StrCat(StrCat(Message, WordCountStr), ' words and '), CharCountStr), ' characters.');
  101.   MessageBox(EWGetWindowHandle, Message, Title, mb_IconInformation or mb_Ok);
  102.   EWExecute := 0;
  103. end;
  104.  
  105. procedure LibExit; far;
  106. begin
  107.  {-Remove menu item from User Menu before unloading}
  108.   EWRemoveMenuEntry(EntryId);
  109.   ExitProc := SaveExit;
  110. end;
  111.  
  112. exports
  113.   EWExecute     index 1;
  114.  
  115. begin
  116.   SaveExit := ExitProc;
  117.   ExitProc := @LibExit;
  118.  {-Extension attaches itself to the user Menu}
  119.   EntryId := EWAddMenuEntry('counter', Title, 0, EWMNU_Extension, 0);
  120. end.
  121.